








HP-GL/2 


By H. Bednarczyk 


The printer and plotter language HP- 
GL/2 is also good for plotting curves 
computed by a running program. You 
only need to know how... 
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The language HP-GL/2 (Hewlett-Packard ‘s standardized Graphics Lan- 
guage) is so widespread on today’s printers and plotters that it seems 
a shame not to make more use of its capabilities. There is no need for 
any additional special software because you will find that HP-GL inter- 
faces perfectly well with existing languages. It is also flexible and has 
a good instruction set. And, above all else, as you would expect from 
HP it is very well documented! There is, however, one feature that is 
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Curve Plotting with 





send plotter strings to your printer 


not described in the literature: how is it possible to 
print or plot a curve of which the co-ordinates are 
calculated in an executing program? 


The Pascal Solution 


What follows should provide a simple solution to 
this problem. The HP-GL/2- instruction 

PU 100,200 PD 3000,5000 

will draw a straight line between two points whose 
printer co-ordinates are (100,200) and (3000,5000). 
For this to work correctly the instruction must be 
sent to the printer as a string. In PASCAL the corre- 
sponding instruction is: 

WRITE(1lst, PU 100,200 PD 3000,5000°); 

This works fine, but what happens if these co-ordi- 
nates are not predefined values but are in fact vari- 
ables that will only be assigned values during pro- 
gram execution? 

As a first guess, maybe this would work: 
x1:=100;y1:=200;x2:=3000;y2:5000; 
WRITE(1St,° PU xi,;yl PDx2,y2~)3 
Alas, this was unsuccessful. With just a little 
thought, it became clear that the numerical values 
in the original HP-GL/2 instruction are an integral 
part of the strings sent to the printer. Numerical 
variables as well as constants are however not 
strings. The original instruction must therefore be 
parsed into strings and (numerical) variables, and 
sent bit by bit to the printer: 

WRITE(lst,al,a2,a3, ... an); 

Also, it is important to realise that the comma in the 
HP-GL/2 instruction must be treated as a string and 
sent to the printer. The comma in the last WRITE 
instruction should remain as it is. The corrected 
instruction now looks like this: 

WRITE(lst,;, PU Xxl; ; yl; PD ;X2; p y2); 
Better legibility is ensured if the comma is repre- 
sented by its ASCII value #44: 

WRITE(lst, “PU~,x1,#44,x2, PD’ ,x2,#44,y2); 
Both versions correctly accepted the calculated co- 
ordinates. 


Source code 
This short description of the software is 


included in the source-text along with some fur- 
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ther explanations. 

The WRITE instruction in the pro- 

cedures Hpinit and Hpexit provide a 
simple method to jump in and out of 
HP-GL/2. Similarly, Hpfont allows 
you to configure the printed character 
parameters by using P1, (the char- 
acter set) and P4 (the character size). 
Also included in this procedure is 
the initialisation of the (virtual) pen 
SP1 and the definition of the asterisk 
(*) as the end-of-text marker. You will 
also notice the parsing in strings and 
user parameters (p1, p4). Details of 
the remaining parameters can be 
found in the literature. The designa- 
tion of the character set table 341 is 
specific to HP-GL/2, and is dealt 
with on Code Page 437. It is needed 
if you specify any Greek symbols. 
The Function listing: 
y(n) :=y0+amp*exp(-a*n) *cos(c*n) 
will trace out a polygon with a step 
width of 20 printer units. The printed 
output line is perceived as a contin- 
uous curve. 

If you look at the Co-ordinate 
Grid routine we can see how 2nz is 
printed out from 2*n, followed by 
#227 (the ASCII-code for 71). 

Lastly we see the Top Caption 
routine where a text string can be 
entered as parameters. PW will con- 
trol the printed line density. 

The printout in the picture was 
generated on an HP LaserJet 4P 
6MB, PostScript Module. The operat- 
ing system used on the PC was DOS 
6.3, the compiler, Borland PASCAL 
7.0. 

Because PASCAL 7.0 also runs 
under Windows, printing and plot- 
ting experiments may also be suc- 
cessful on that platform. 

Using the principles that we have 
outlined here, it would also be rela- 
tively easy to adapt these routines to 
perform the same printer functions 
in other high-level languages. 
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For further reading: 


The HP-GL/2 aud HP RTL Reference 
Guide 3. Edition. 
Hewlett-Packard Company, 1997, 
Addison Wesley Publ. 


Internet: 


http://www.hp.com/designjet/ 
techome.htm 
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COMPUTER 


Pascal Listing 


PROGRAM Draw_Curves_using HPGL2; 


USES dos,printer; 
CONST xpr=7900; ypr=10800; {Max. printer co-ordinates} 

x0=600; yO=5400; {Origin 0,0} 

amp=4000; a=0.005; c=0.1; {Parameter f. amp*exp(-a*n)*cos(c*n)} 

= 20; {Step size in printer units} 
VAR n,p1,p4,y: INTEGER; {p1.....character set table} 

{p4.....font size } 
p: EXTENDED; text: STRING; 


PROCEDURE HPinit; 
BEGIN WRITE(Ist,#27'E'#27'%0B’'); END; 
PROCEDURE HPexit; 
BEGIN WRITE(Ist,#27'%0A' #27’E’); END; 
PROCEDURE HPfont; 
BEGIN WRITE(lst, SD 1,,p1,',2,1,4,,p4,,5,0,6,0,7,5 SP1 DT’); END; 


BEGIN 
HPinit; 
p1:=341; p4:=14; HPfont; 


{——— Function —-—_W__—__—+____—____—1___—_ } 
WRITE(lst,’PW0.5 PU’,x0,#44,y0+amp); 
FOR n:=0 TO (xpr-x0) div j DO 

BEGIN 

y:=ROUND(y0+amp*exp(-a*n)*cos(c*n)); 

WRITE(lst,’PD’ x0+j*n,#44,y); 

END; 


WRITE(Ist,’PW0.35 PU’,x0,#44,y0,’PD’ xpr,#44,y0, 
‘PU’ ,x0,#44,0,’PD’,x0,#44,ypr); 


{————____—_—_————Co-ordinate_Grid-———_—W_____—_—__———__—_-} 
FOR n:=-4 TO 4 DO 

WRITE(lst,’PW0.05 PU’,x0,#44,y0+n*1000,’LO18LB’,0.25*n:1:2,’*’, 

‘PD’ xpr,#44,y0+n* 1000); 

p:=2*pi*j/c; 
FOR n:=1 TO 5 DO 

WRITE (Ist,’PU’,ROUND(x0+n*p),#44,y0-amp,’LO16LB’,2*n,#227,’*’, 

‘PD’ ,ROUND(x0+n*p),#44,y0+amp); 


{———____—_——————Top_Caption-——____________——__——___} 
p4:=18; HPfont; 
text:=’Damped Oscillation using HP-GL/2’; 
WRITE(lst,’PU’ ,(xpr-x0) div 2,444,ypr-200, 
‘LO16LB’,text,’*’); 


On Project Disk #006005-I: 


Hp_elekt. EXE 
Hp_elekt. PAS 


Executable Program Curve plotting 
Pascal source text for curve plotting with HP-GL 
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